#!/usr/bin/perl
# stem.pl
use warnings;
use strict;
 

use Lingua::Stem qw(stem);
my @words = qw(birds birdie flying flown worked working);
my $stemmer = Lingua::Stem->new(-locale => 'EN-US');
my $stems   = $stemmer->stem(@words);
print "Word \tStem \n";
while (@$stems) {
   print pop @words, "\t", pop @$stems, "\n";
}
